home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Info-Mac 4
/
Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso
/
Development
/
General
/
ViewIt™ 2.24 Shareware
/
FORTRAN Demo Projects
/
Absoft MacFortran II 3.2 Demos
/
MinimumAF.f
< prev
next >
Wrap
Text File
|
1993-05-14
|
732b
|
33 lines
C NOTE: Read the "MPW Fortrans" section of "About Compilers"
C before compiling AF programs that use FaceWare modules.
C Minimum AF Demonstration Program
C ©FaceWare 1991-93. All Rights Reserved.
GLOBAL DEFINE
include "Types.inc"
include "QuickDraw.inc"
include "Controls.inc"
include "Events.inc"
include "OSUtils.inc"
include "OSEvents.inc"
include "SegLoad.inc"
include "Files.inc"
include "Resources.inc"
include "FaceStorAF.inc"
END
include "FaceProcAF.inc"
PROGRAM MinimumAF
implicit none
record /FaceRec/ fRec
common/FaceStuff/fRec
fRec.uName = 'Minimum.Rsrc'
call FaceIt(0,DoInit,0,0,0,0)
do while (.true.)
call FaceIt(0,DoLoop,0,0,0,0)
end do
end